home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / nudeclr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-16  |  5.1 KB  |  147 lines
  1. 0  A=2
  2. 1   'Modified from the HP 9845 Basic by G. Wesley  12/29/82
  3. 10   CLS
  4. 11   DEFINT X,Y,C
  5. 20   KEY OFF
  6. 30   SCREEN 1:COLOR 1,1
  7. 40   C=0:LINE -(0,0),C
  8. 50   FOR I=1 TO 360
  9. 60   <UNK! {0009}>READ X,Y,P
  10. 70       X=X*320/360
  11. 80  <UNK! {0009}>Y=Y*200/240
  12. 90       Y=200-Y 'do y transformation to get picture right side up.
  13. 100      IF P=13 THEN C=0 ELSE C=A
  14. 110      LINE -(X,Y),C
  15. 120  NEXT I
  16. 200  PSET (70,167),2:PAINT (27,150),2
  17. 210  PAINT (27,165),2:LOCATE 1,1:LINE (105,152)-(105,156),2:LINE(107,157)-(107,157),2:PSET(92,140),2:PAINT (27,170),1,2
  18. 220  LINE(301,96)-(302,96),2:PSET (299,96),2:PSET (309,85),2:PSET(288,108),2:PSET(304,108),3
  19. 230  PAINT(304,108),1,2
  20. 240  LINE (169,74)-(173,80),2
  21. 241  PSET(246,143),2
  22. 244  PAINT(160,150),3,2
  23. 245  PAINT (290,77),3,2
  24. 246  PSET(167,83),2
  25. 247  PAINT(170,95),3,2
  26. 250  PAINT (58,130),3,2
  27. 290   LOCATE 1,1:PRINT "EAT YOUR HEART OUT!!!"
  28. 299  GOTO 299
  29. 300   DATA  51,100,13,79,103,12,104,92,12
  30. 310   DATA  108,87,12,108,82,12,104,72,12
  31. 320   DATA  88,57,12,93,75,13,93,78,12
  32. 330   DATA  91,82,12,90,84,12,90,87,12
  33. 340   DATA  89,90,12,89,94,12,90,93,12
  34. 350   DATA  91,89,12,92,86,12,92,83,12
  35. 360   DATA  94,77,12,93,75,13,96,80,12
  36. 370   DATA  97,83,12,97,87,12,96,89,12
  37. 380   DATA  92,92,12,89,94,12,93,89,12
  38. 390   DATA  94,85,12,94,77,12,85,81,13
  39. 400   DATA  85,83,12,86,84,12,86,82,12
  40. 410   DATA  85,81,12,85,86,13,84,86,12
  41. 420   DATA  83,88,12,85,86,12,67,54,13
  42. 430   DATA  65,60,12,64,67,12,66,74,12
  43. 440   DATA  67,74,12,66,67,12,66,60,12
  44. 450   DATA  67,54,12,69,56,13,68,61,12
  45. 460   DATA  67,67,12,68,70,12,71,73,12
  46. 470   DATA  69,69,12,69,64,12,71,60,12
  47. 480   DATA  69,56,12,71,60,13,74,64,12
  48. 490   DATA  74,68,12,71,72,12,73,68,12
  49. 500   DATA  73,64,12,70,61,12,70,63,13
  50. 510   DATA  71,63,12,73,65,12,73,68,12
  51. 520   DATA  71,69,12,70,69,12,69,68,12
  52. 530   DATA  70,65,13,70,66,12,71,66,12
  53. 540   DATA  71,65,12,70,65,12,64,87,13
  54. 550   DATA  60,91,12,59,94,12,58,98,12
  55. 560   DATA  60,100,12,59,97,12,62,92,12
  56. 570   DATA  64,87,12,69,86,13,65,88,12
  57. 580   DATA  63,93,12,62,100,12,65,98,12
  58. 590   DATA  64,95,12,64,90,12,69,86,13
  59. 600   DATA  70,91,12,68,95,12,65,98,12
  60. 610   DATA  65,97,12,67,95,12,69,91,12
  61. 620   DATA  69,86,12,65,88,13,66,88,12
  62. 630   DATA  68,89,12,69,91,12,67,94,12
  63. 640   DATA  65,94,12,64,93,12,65,90,13
  64. 650   DATA  65,91,12,66,91,12,66,90,12
  65. 660   DATA  65,90,12,61,101,13,50,104,12
  66. 670   DATA  36,100,12,24,90,12,17,75,12
  67. 680   DATA  16,61,12,25,43,12,44,33,12
  68. 690   DATA  60,33,12,79,40,12,57,38,12
  69. 700   DATA  41,45,12,24,62,12,17,75,12
  70. 710   DATA  51,100,13,57,95,12,63,80,12
  71. 720   DATA  62,72,12,58,78,12,62,65,12
  72. 730   DATA  65,49,12,52,45,13,65,49,12
  73. 740   DATA  88,65,12,87,50,12,79,40,12
  74. 750   DATA  17,75,13,5,67,12,0,45,12
  75. 760   DATA  4,23,12,25,11,12,58,17,12
  76. 770   DATA  110,14,12,135,25,12,160,32,12
  77. 780   DATA  164,40,12,162,44,12,155,46,12
  78. 790   DATA  143,45,12,151,43,12,149,40,12
  79. 800   DATA  125,48,12,118,55,12,119,51,13
  80. 810   DATA  117,58,12,113,62,12,104,62,12
  81. 820   DATA  115,61,13,115,67,12,111,71,12
  82. 830   DATA  104,72,12,121,52,13,133,50,12
  83. 840   DATA  145,51,12,131,56,13,145,51,12
  84. 850   DATA  170,47,12,245,41,12,255,42,12
  85. 860   DATA  262,46,12,271,58,12,282,81,12
  86. 870   DATA  281,78,13,287,81,12,280,76,13
  87. 880   DATA  285,74,12,288,75,12,278,73,13
  88. 890   DATA  282,75,12,283,79,13,288,75,12
  89. 900   DATA  293,74,12,301,77,12,299,76,13
  90. 910   DATA  306,75,12,313,76,12,314,77,12
  91. 920   DATA  313,78,12,309,78,12,309,77,12
  92. 930   DATA  311,76,12,309,78,13,304,79,12
  93. 940   DATA  300,81,12,295,79,12,302,80,13
  94. 950   DATA  313,83,12,316,85,12,312,85,12
  95. 960   DATA  311,84,12,311,83,12,313,83,12
  96. 970   DATA  312,85,13,300,84,12,292,82,12
  97. 980   DATA  300,84,13,305,88,12,306,90,12
  98. 990   DATA  302,89,12,301,88,12,302,87,12
  99. 1000   DATA  305,88,12,302,89,13,289,85,12
  100. 1010   DATA  295,79,13,280,92,12,275,91,12
  101. 1020   DATA  244,68,12,251,64,13,244,68,12
  102. 1030   DATA  220,73,12,170,89,12,164,92,12
  103. 1040   DATA  157,92,12,220,73,13,243,73,12
  104. 1050   DATA  261,81,12,270,95,12,273,109,12
  105. 1060   DATA  270,125,12,259,143,12,244,160,12
  106. 1070   DATA  227,177,12,208,193,12,196,206,12
  107. 1080   DATA  214,202,13,198,210,12,189,213,12
  108. 1090   DATA  182,213,12,176,211,12,172,206,12
  109. 1100   DATA  170,199,12,172,190,12,182,167,12
  110. 1110   DATA  197,141,12,209,125,12,236,105,12
  111. 1120   DATA  180,122,13,185,126,12,187,137,12
  112. 1130   DATA  191,150,12,208,193,13,214,202,12
  113. 1140   DATA  222,216,12,228,223,12,234,226,12
  114. 1150   DATA  240,226,12,247,222,12,276,192,12
  115. 1160  DATA  305,164,12,318,155,12,330,150,12
  116. 1170  DATA  349,137,12,347,139,13,360,149,12
  117. 1180  DATA  360,140,12,357,129,12,353,123,12
  118. 1190  DATA  350,121,12,335,120,12,349,137,13
  119. 1200  DATA  339,123,12,324,110,12,322,111,12
  120. 1210  DATA  322,113,12,324,116,12,330,121,12
  121. 1220  DATA  341,126,12,337,124,13,338,127,12
  122. 1230  DATA  335,120,13,335,116,12,349,107,12
  123. 1240  DATA  348,106,12,340,110,12,324,110,12
  124. 1250  DATA  341,126,13,334,128,12,330,128,12
  125. 1260  DATA  325,126,12,320,123,12,316,122,12
  126. 1270  DATA  312,124,12,310,127,12,308,134,12
  127. 1280  DATA  305,140,12,290,150,12,275,159,12
  128. 1290  DATA  257,168,12,249,174,12,244,179,12
  129. 1300  DATA  293,148,13,289,142,12,285,142,12
  130. 1310  DATA  282,143,12,274,150,12,266,155,12
  131. 1320  DATA  241,163,12,248,205,13,247,194,12
  132. 1330  DATA  241,163,12,90,99,13,95,103,12
  133. 1340  DATA  94,100,13,98,114,12,105,128,12
  134. 1350  DATA  108,132,12,108,134,12,110,135,12
  135. 1360  DATA  111,134,12,108,132,12,105,128,13
  136. 1370  DATA  117,134,12,111,134,13,117,134,12
  137. 1380  DATA  131,130,12,143,122,12,99,95,13
  138. 1390  DATA  114,100,12,130,108,12,124,97,13
  139. 1400  DATA  130,104,12,137,115,12,143,122,12
  140. 1410  DATA  160,130,12,167,132,12,169,134,12
  141. 1420  DATA  171,133,12,171,131,12,167,132,12
  142. 1430  DATA  160,130,13,175,126,12,171,131,13
  143. 1440  DATA  175,126,12,181,120,12,186,110,12
  144. 1450  DATA  188,100,12,186,89,12,181,121,13
  145. 1460  DATA  190,121,12,200,118,12,210,112,12
  146. 1470  DATA  2XWENDIRESUMERESUME<0xE3!>LLIST&<0x9B!>DATALOCATEINKEY$OUT<0xE3!>UCLSR>TRONSPC(NOT<0x9B!><UNK! {00FB}>rSEDITLOCATE<}[V-18027<UNK! {007F}>IFOPENQv<0xE4!>}XGOTOFvqAUTOTOTHEN[ERLGOSUBWEND<UNK! {00F9}>2MOTOR<0xDF!>READ<0x9F!>USRCLS<<UNK! {0003}>RETURN<UNK! {0005}>DELETE<0xE1!>'4SWAPG<UNK! {00FA}>wKEYqeBEEP;IFOPENQ6^"<UNK! {00F8}>0u<RENUM8<UNK! {0010}>TROFFXxXORORWENDDEFSTRRWIDTHCALLRESUME10e<0xE3!>#FOR?5<UNK! {0008}><UNK! {000D}>+OPTION2<0xE2!>RETURNEQV<UNK! {00F8}>SPC(c<~0CLEAR
  147.